home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Update_Magellan < prev    next >
Text File  |  1997-06-09  |  5KB  |  250 lines
  1. ; Script to install Directory Opus Magellan version 
  2. ;
  3. ; Directory Opus Install Version $VER: Install-Opus 60  (11.05.97)
  4. ; COPYRIGHT ©1996 GP SOFTWARE, AUSTRALIA
  5. ; note uses Opus<Alt-Shift>5
  6. ; now installs new catalogs if they are on the disk.
  7.  
  8.  
  9.  
  10. (complete 0)
  11.  
  12. ;
  13. ;check user has Dos 2
  14. ;
  15.  
  16. (set #DOSTYPE (/ (getversion) 65536))
  17. (if
  18.     (NOT (>= #DOSTYPE 37))
  19.    (abort "Directory Opus 5 benötigt AmigaDOS 2.04 oder höher."
  20.         " Bevor Sie Opus 5 benutzen können, müssen Sie auf V2.04 oder höher upgraden.")
  21. )
  22.  
  23.  
  24. (set @default-dest "work:")
  25.  
  26. (set #Dopus_prog "DOpus5:DirectoryOpus")
  27. (set #DName "OpusMagellan")
  28. (set #Disk_Name (cat #DName ":"))
  29. (set #Loadwb "C:LoadWb")
  30. (set #Go "Weiter")
  31. (set #Skip "Diesen Teil überspringen")
  32.  
  33.  
  34. ;
  35. ; Procedure signal
  36. ; incase Opus is re-installed. The notification on the modules
  37. ; directory can cause problems so signal Opus to turn off notifications
  38.  
  39. (procedure signal_opus
  40.  
  41.     (get_disk)
  42.     (set #Sigs (tackon #Disk_Name "dopusmsg"))
  43.     (if (exists #Sigs (noreq))
  44.         (run (cat #Sigs " DOPUS.1 \"command set notify off\""))
  45.     )
  46. )
  47.  
  48.  
  49. ;
  50. ; Procedure get_disk 
  51. ; get the correct disk for a program
  52. ;
  53.  
  54. (procedure get_disk
  55.  
  56.     (askdisk
  57.         (prompt #Title_msg
  58.             "\nBitte legen Sie die CD \""#DiskName"\" ein.")
  59.         (help "Legen Sie die CD ein, um die Installation fortzusetzen.")
  60.         (assigns)
  61.         (dest #DName)
  62.     )
  63. )
  64.  
  65.     
  66. ;
  67. ; Procedure install_core
  68. ; install the program files and new bits
  69. ; MUST HAVE A VALID DOPUSDEST ;
  70.  
  71. (procedure install_core
  72.  
  73.     (set #Title_msg "Directory Opus 5.5 Magellan Update.\n\n")
  74.  
  75.     (message #Title_msg
  76.         "Hiermit können Sie Ihre exisitierende Version von"
  77.         " Directory Opus 5.5 auf Opus 5 Magellan updaten.\n\n"
  78.         "Opus 5.5 muß dafür bereits installiert sein.\n\n"
  79.         "Nach Beendigung müssen Sie Ihren Amiga neu starten"
  80.         " und die Registriernummer der neuen Version\n"
  81.         " eintragen.\n\n")
  82.  
  83.  
  84.     (if (exists #Dopus_prog (noreq))
  85.         (
  86.         (set #Vernum (getversion #Dopus_prog))
  87.         (set #Dop_ver (/ #Vernum 65536))
  88.         (set #Dop_rev (- #Vernum (* #Dop_ver 65536) ) )
  89.         )
  90.     )
  91.  
  92.     (if    (OR (<> #dop_ver 5 ) (<> #dop_rev 5 ))
  93.         (
  94.         (message 
  95.             "Sorry, aber Ihre Versionsnummer von DirectoryOpus ist unkorrekt\n\n"
  96.             "DirectoryOpus Version ist "#dop_ver"."#dop_rev".\n\n"
  97.             "Dieses Update läuft nicht mit dieser Version und kann"
  98.             " Ihre aktuelle Konfiguration zerstören.\n\n"
  99.             " Sie müssen Opus 5.5 installiert haben, um"
  100.             " dieses Skript nutzen zu können!\n")
  101.  
  102.  
  103.         (exit "Installation beendet!")
  104.         )
  105.  
  106.     ); else
  107.     (if    (
  108.         (get_disk)
  109.         (working #Title_msg
  110.              "Installiere die Hauptkomponenten.\n\n"
  111.              "Dies dauert einen Moment....")
  112.  
  113.         (copyfiles 
  114.             (source "OpusMagellan:DOpus_Install/Magellan")
  115.             (dest "DOpus5:")
  116.             (infos)
  117.             (files)
  118.             (all)
  119.          (optional force)
  120.         )
  121.  
  122.         (complete 90)
  123.         
  124.     ;
  125.     ; tidyup
  126.     ;
  127.     ; make sure update module is re-initialised
  128.  
  129.         (run "C:Delete DOpus5:system/update-history FORCE")
  130.     
  131.     
  132.     ;Install the other bits
  133.         
  134.     
  135.         (copyfiles 
  136.             (source (tackon #Disk_Name "LiesMich.Magellan"))
  137.             (dest "DOpus5:")
  138.             (infos)
  139.             (files)
  140.         )
  141.  
  142.     ;
  143.     ; update loaddb check what they have installed
  144.     ;check if they have our load_wb installed
  145.  
  146.         (if (exists #Loadwb (noreq))
  147.             ( ; yes
  148.             (set #Vernum (getversion #Loadwb))
  149.             (set #Wb_ver (/ #Vernum 65536))
  150.             (set #Wb_rev (- #Vernum (* #Wb_ver 65536) ) )
  151.             (if (>= #Wb_ver 42) ; should be ours
  152.                 ( ; yes, then copy our loaddb as loadWB 
  153.                 (copyfiles
  154.                     (source "DOpus5:c/LoadDB")
  155.                     (dest "C:")
  156.                     (newname "LoadWB")
  157.                 )
  158.                 )
  159.             )
  160.             )
  161.         )
  162.  
  163.     ; just in case use has installed LoadDB in C:, update it
  164.  
  165.         (if    (exists "C:LoadDB" (noreq))
  166.             (copyfiles 
  167.                 (source "DOpus5:C/LoadDB")
  168.                 (dest "C:")
  169.                 (files)
  170.             )
  171.         )
  172.         )
  173.     )
  174. )
  175.     
  176.  
  177. (procedure install_complete
  178.  
  179.     (signal_opus)
  180.     (install_core)
  181. )
  182.  
  183.  
  184. ;
  185. ; Real not procedure at last! ;
  186. ;
  187.  
  188.  
  189. (if    (
  190.     (set #Title_msg "Directory Opus 5.5 Magellan Installation.\n\n")
  191.     (askchoice
  192.         (prompt #Title_msg
  193.             "Bitte wählen Sie:-")
  194.         (help     "Opus 5.5 auf Magellan updaten "
  195.               "Führt ein Update von Opus 5.5 auf Opus 5 Magellan durch\n\n")
  196.         (choices
  197.             "Fertig"                ; 0
  198.             "Opus 5.5 auf Magellan updaten ")    ; 1
  199.         (default 0)
  200.     )
  201.     
  202.     )
  203.     (
  204.     (install_complete)
  205.     (message #Title_msg
  206.         "Directory Opus 5 Magellan registrieren\n"
  207.         "--------------------------------------\n"
  208.  
  209.         "Um Ihre wertvolle Investition in Opus 5 zu schützen und "
  210.         "die Installation zu komplettieren, sollten Sie"
  211.         " jetzt Opus mit Ihren persönlichen Daten und der Seriennummer "
  212.         " der Installations-CD registrieren.\n\n"
  213.         "Dies wäre auch ein guter Moment, die Registrierkarte"
  214.         " auszufüllen und an Ihren Vertreiber zurückzusenden."
  215.         " Technische Unterstützung und Garantie wird nur"
  216.         " gewährt, wenn eine gültige Registrierung beim Vertrieb"
  217.         " vorliegt.")
  218.  
  219.  
  220.  
  221.     ;
  222.     ;Please please ReadMe 
  223.     ;
  224.  
  225.     (if    (askbool (prompt #Title_msg
  226.             "Alle Dinge ändern sich, einschließlich Software.\n\n"
  227.             "Weitere Änderungen sind in der Datei 'LiesMich'"
  228.             " auf der Installations-CD festgehalten.\n\n"
  229.             "Wollen Sie diese Datei jetzt lesen?\n\n")
  230.         (help "Na los, lesen Sie sie schon.")
  231.         )
  232.         (if (> (run "Sys:Utilities/MultiView DOpus5:LiesMich.Magellan") 0)
  233.             (if (> (run "Sys:Utilities/AmigaGuide DOpus5:LiesMich.Magellan") 0)
  234.                 (if (> (run "More DOpus5:LiesMich.Magellan") 0)
  235.                     (
  236.                     (get_disk)
  237.                     (run "Opus55_Install:More DOpus5:LiesMich.Magellan")
  238.                     )
  239.                 )
  240.             )
  241.         )
  242.     )
  243.     )
  244. )    
  245.  
  246. (complete 100)
  247.  
  248. (exit "Directory Opus 5 Magellan Installationsskript beendet.")
  249.  
  250.